home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Commodities / QBox / Install < prev    next >
Encoding:
Text File  |  1996-09-27  |  3.6 KB  |  179 lines
  1. ; QBox installation script
  2. ; copyright 1995 T.L.Bullock
  3.  
  4. ; Report 0% complete
  5. (complete 0)       
  6.  
  7. (set VERS       "1.16")
  8. (set MSG_OSBAD  "\n\n\nThis program might not work on your Amiga\nas you do not have OS3 or greater.\nThat isn't to say you shouldn't try however!")
  9. (set MSG_WHERE  "Where do you want the QBox program installed?")
  10. (set MSG_EXEC   "Installing QBox executeable")
  11. (set MSG_DOCS   "Installing Docs to Locale:help/english")
  12. (set MSG_LIBS   "Installing Explode.library to Libs:")
  13. (set MSG_FONTS  "Installing fonts required to Fonts:")
  14. (set MSG_S      "Installing example scripts to S:")
  15. (set MSG_INICO  "\n\n\nDo you wish to install other icons\nby Eric van Velthooven ?")
  16. (set MSG_SEICO  "Which icon set do you wish to install")
  17. (set OP_QBOX    "QBox (recommended)")
  18. (set OP_MWB     "Magic Workbench")
  19. (set OP_SMWB    "Small Magic Workbench")
  20. (set OP_NI      "NewIcon")
  21. (set OP_CBM     "Commodore")
  22. (set MSG_ICQBOX "QBox")
  23. (set MSG_ICMWB  "MagicWB")
  24. (set MSG_ICSMWB "SmallMagicWB")
  25. (set MSG_ICNI   "NewIcons")
  26. (set MSG_ICCBM  "Commodore")
  27. (set MSG_ICCOPY "Copying %s icons...")
  28.  
  29. ;Guarentee at  least OS3.x+
  30. (set osvers (/ (getversion) 65536))
  31. (if (< osvers 39)
  32.   (message MSG_OSBAD)
  33. )
  34.  
  35. ; Request QBox prog destination
  36. (set qb-dest        
  37.   (askdir
  38.     (prompt MSG_WHERE)
  39.     (help @askdir-help)
  40.     (default @default-dest)
  41.   )
  42. )
  43.  
  44. ; Assign selection to default
  45. (set @default-dest qb-dest)
  46.  
  47. ; Copy QBox-v#?#? with icons (2 files)
  48. (copyfiles
  49.   (prompt MSG_EXEC)
  50.   (help @copyfiles-help)
  51.   (source "")
  52.   (dest @default-dest)
  53.   (pattern "QBox-v#?#?")
  54.   (infos)
  55.   (confirm)
  56.   (optional force)
  57. )
  58.  
  59. ; Report 12% complete
  60. (complete 12)
  61.  
  62. ; Copy docs to Locale:help/english (2 files)
  63. (copyfiles
  64.   (prompt MSG_DOCS)
  65.   (help @copyfiles-help)
  66.   (source "Docs")
  67.   (dest "Locale:help/english/")
  68.   (optional oknodelete force)
  69.   (infos)
  70.   (all)
  71.   (confirm)
  72.   (optional force)
  73. )
  74.  
  75. ; Report 24% complete 
  76. (complete 24)
  77.  
  78. ; Copy libs/explode.library to Libs:  (1 file)
  79. (copylib
  80.   (prompt MSG_LIBS)
  81.   (help @copylib-help)
  82.   (source "libs/explode.library")
  83.   (dest "Libs:")
  84.   (confirm)
  85.   (optional force)
  86. )
  87.  
  88. ; Report 29% complete
  89. (complete 29)
  90.  
  91. ; Copy fonts/ to Fonts: (7 files)
  92. (copyfiles
  93.   (prompt MSG_FONTS)
  94.   (help @copyfiles-help)
  95.   (source "fonts")
  96.   (dest "Fonts:")
  97.   (fonts)
  98.   (all)
  99.   (confirm)
  100.   (optional force)
  101. )
  102.  
  103. ;Report 71% complete
  104. (complete 71)
  105.  
  106. ; Copy S/ to S: (4 files)
  107. (copyfiles
  108.   (prompt MSG_S)
  109.   (help @copyfiles-help)
  110.   (source "s")
  111.   (dest "S:")
  112.   (all)
  113.   (confirm)
  114.   (optional force)
  115. )
  116.  
  117. ;Report 94% complete
  118. (complete 94)
  119.  
  120. ; Ask to install LazaruZ icons (1 file)
  121. (set choice 
  122.    (askbool
  123.       (prompt MSG_INICO)
  124.       (help @askbool-help)
  125.       (default 0)
  126.    )
  127. )
  128. (if (> choice 0)
  129.   ;Ask which set of icons
  130.   (
  131.     (set icoset
  132.       (askchoice
  133.         (prompt MSG_SEICO)   
  134.         (help @askchoice-help)
  135.         (choices OP_QBOX OP_MWB OP_SMWB OP_NI OP_CBM)
  136.         (default 0)
  137.       )
  138.     ) 
  139.     (select icoset
  140.       (             
  141.         (set ext "")
  142.         (set MSG_CPICO MSG_ICQBOX)
  143.       )
  144.       (             
  145.         (set ext "_MWB")
  146.         (set MSG_CPICO MSG_ICMWB)
  147.       )
  148.       (
  149.         (set ext "_SMWB")
  150.         (set MSG_CPICO MSG_ICSMWB)
  151.       )
  152.       (
  153.         (set ext "_NI")
  154.         (set MSG_CPICO MSG_ICNI)
  155.       )
  156.       (
  157.         (set ext "_CBM")
  158.         (set MSG_CPICO MSG_ICCBM)
  159.       )
  160.     )
  161.     (set src (cat "icons/QBox-vX.XXe" ext ".info"))
  162.     (set dsn (cat "QBox-v" vers "e.info"))
  163.     (copyfiles
  164.       (prompt MSG_ICCOPY MSG_CPICO)
  165.       (help @copyfiles-help)
  166.       (source src)
  167.       (dest @default-dest)
  168.       (newname dsn)
  169.       (optional force)
  170.     )
  171.   )
  172. )
  173.  
  174. ; Report 100% complete
  175. (complete 100)
  176.  
  177. ; T-t-t-thats all folks!!!
  178. (exit)
  179.